home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Arsenal Files 6
/
The Arsenal Files 6 (Arsenal Computer).ISO
/
prg_basi
/
n_b-v200.zip
/
NB02
/
DMO
/
PADFILEN.DMO
< prev
next >
Wrap
Text File
|
1996-03-11
|
2KB
|
48 lines
$if 0
┌──────────────────────────╖ PowerBASIC v3.20
┌──┤ DASoft ╟──────────────────────┬──────────────────╖
│ ├──────────────────────────╢ Copyright 1995 │ DATE: 1995-10-01 ╟─╖
│ │ FILE NAME PADFILEN.DMO ║ by ╘════════════════─ ║ ║
│ │ ║ Don Schullian, Jr. ║ ║
│ ╘══════════════════════════╝ ║ ║
│ A license is hereby granted to the holder to use this source code in ║ ║
│ any program, commercial or otherwise, without receiving the express ║ ║
│ permission of the copyright holder and without paying any royalties, ║ ║
│ as long as this code is not distributed in any compilable format. ║ ║
│ IE: source code files, PowerBASIC Unit files, and printed listings ║ ║
╘═╤═════════════════════════════════════════════════════════════════════╝ ║
│ .................................... ║
╘═══════════════════════════════════════════════════════════════════════╝
$endif
'.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
$INCLUDE "DAS-NB01.INC"
$INCLUDE "DAS-NB02.INC"
COLOR 7,0
CLS
? "┌──────────────────────────────────────────────────────────────────
? "│ fPadFileName$ ( FileName$, Length% )
? "├────────────────────────────────────────────────────────────────────
? "│ Just a little play-pretty for those menus and X-TREE listings.
? "└──────────────────────────────────────────────────────────────────────
?
? REPEAT$( 5, "┌──────────────┐" );
F$ = DIR$( "DMO\*.DMO" ) ' is this correct?
WHILE F$ <> ""
INCR Count%, 1
PRINT "│ "; fPadFileName$( F$, 12 ); " │";
F$ = DIR$
WEND
Count% = ( Count% MOD 5 )
IF Count% < 5 THEN
FOR X% = 1 TO ( 5 - ( Count% MOD 5 ) )
PRINT "│ │";
NEXT
END IF
PRINT REPEAT$( 5, "└──────────────┘" );